home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Language/OS - Multiplatform Resource Library
/
LANGUAGE OS.iso
/
lisp
/
kcl
/
kcl.lha
/
lsp
/
seqlib.data
< prev
next >
Wrap
Text File
|
1987-02-16
|
2KB
|
91 lines
#(
#!
(lisp::in-package 'user::lisp)
#!
(lisp::export '(lisp::reduce lisp::fill lisp::replace lisp::remove lisp::remove-if lisp::remove-if-not lisp::delete lisp::delete-if lisp::delete-if-not lisp::count lisp::count-if lisp::count-if-not lisp::substitute lisp::substitute-if lisp::substitute-if-not lisp::nsubstitute lisp::nsubstitute-if lisp::nsubstitute-if-not lisp::find lisp::find-if lisp::find-if-not lisp::position lisp::position-if lisp::position-if-not lisp::remove-duplicates lisp::delete-duplicates lisp::mismatch lisp::search lisp::sort lisp::stable-sort lisp::merge))
#!
(lisp::in-package 'lisp::system)
(lisp::optimize (lisp::safety 2) (lisp::space 3))
(lisp::function system::seqtype (lisp::t) lisp::t)
lisp::list
lisp::string
lisp::bit-vector
lisp::array
"~S is not a sequence."
(lisp::function system::call-test (lisp::t lisp::t lisp::t lisp::t) lisp::t)
(lisp::function system::check-seq-test (lisp::t lisp::t) lisp::t)
"Both :TEST and :TEST-NOT were specified."
(lisp::function system::check-seq-start-end (lisp::t lisp::t) lisp::t)
"Fixnum expected."
"START is greater than END."
(lisp::function system::check-seq-args (lisp::t lisp::t lisp::t lisp::t) lisp::t)
"Both :TEST and :TEST-NOT were specified."
"Fixnum expected."
"START is greater than END."
0
1
:from-end
:test
:test-not
:start
:end
:count
:key
lisp::remove
lisp::delete
lisp::count
system::internal-count
lisp::substitute
lisp::nsubstitute
lisp::find
lisp::position
2
(lisp::function system::quick-sort (lisp::t lisp::fixnum lisp::fixnum lisp::t lisp::t))
lisp::proclaim
system::seqtype
system::call-test
system::check-seq-test
system::check-seq-start-end
system::check-seq-args
lisp::reduce
lisp::fill
lisp::replace
lisp::remove-if
lisp::remove-if-not
lisp::delete-if
lisp::delete-if-not
lisp::count-if
lisp::count-if-not
system::internal-count-if
system::internal-count-if-not
lisp::substitute-if
lisp::substitute-if-not
lisp::nsubstitute-if
lisp::nsubstitute-if-not
lisp::find-if
lisp::find-if-not
lisp::position-if
lisp::position-if-not
lisp::remove-duplicates
lisp::delete-duplicates
lisp::mismatch
lisp::search
lisp::sort
system::list-merge-sort
system::quick-sort
lisp::stable-sort
lisp::merge
system::fixnump
:initial-value
:start1
:end1
:start2
:end2
lisp::identity
lisp::funcall
lisp::make-sequence
system::member1
lisp::coerce
)